home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / PLOT2EQ.LI < prev    next >
Text File  |  1994-07-22  |  352b  |  9 lines
  1. #  library plot2eq
  2. #  plot2eq(eq,eq2,x,y) plots 2 equations of eq and eq2
  3. #  the cross of 2 curves is a solution of a system of eqs
  4. #  e.g. plot2eq(x*y+y^2=1, x+y=4, x,y)
  5.  
  6. plot2eq(eq_,eq2_,x_,y_,xmin_,xmax_) := plot2y(member(right(solve(eq,y)),1),
  7.     member(right(solve(eq2,y)),1),x,xmin,xmax)
  8. plot2eq(eq_,eq2_,x_,y_) := plot2eq(eq,eq2,x,y,-5,5)
  9.